(define make-adder
  (lambda (x)
    (lambda (y) (+ x y))))

(define add-5 (make-adder 5))

(display (add-5 3)) ; 8
(newline)
(display ((make-adder 10) 7)) ; 17
(newline)
